home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dm310.arc / FORMAT.MNU < prev    next >
Text File  |  1990-07-22  |  2KB  |  114 lines
  1. Comment
  2. ===================================================
  3.  
  4. DM3 Menu Overlay * CopyRight 1989-90 By Marc Perkel
  5.  
  6. This is a File Compression Overlay fo DM3. This allows you to
  7. compress marked files.
  8.  
  9. ===================================================
  10. EndComment
  11.  
  12. Var ForeColor BackColor %Option %Message
  13.  
  14. if ColorScreen
  15.    BoxHeaderColor Yellow Mag
  16.    InverseColor Yellow Mag
  17.    BoxBorderColor LGreen Brown
  18.    BoxInsideColor Grey Brown
  19. else
  20.    BoxHeaderColor Black Grey
  21.    InverseColor Black Grey
  22.    BoxBorderColor White Black
  23.    BoxInsideColor Grey Black
  24. endif
  25.  
  26. ClearScreenOnExit Off
  27. BlankTime = 10
  28. BlankMessage = 'Executing DM3'
  29.  
  30. BoxHeader = ' Format Floppy Disk Menu '
  31. DrawBox 21 7 44 7
  32. TextColor Yellow Brown
  33. ClearLine 205
  34. TextColor Grey Brown
  35. UseArrows
  36. CapsColor Yellow Brown
  37.  
  38. Writeln
  39. Writeln '  1 - Format 360      5 - Format /S 360'
  40. Writeln '  2 - Format 1.2M     6 - Format /S 1.2M'
  41. Writeln '  3 - Format 720      7 - Format /S 720'
  42. Write   '  4 - Format 1.4M     8 - Format /S 1.4M'
  43.  
  44. OnKey '1'
  45.   |%Message = '360k Format with no System Files.'
  46.   |%Option = '/4'
  47.   |Format2
  48.  
  49. OnKey '2'
  50.   |%Message = '1.2m Format with no System Files.'
  51.   |%Option = ''
  52.   |Format2
  53.  
  54. OnKey '3'
  55.   |%Message = '720k Format with no System Files.'
  56.   |%Option = '/N:9/T:80'
  57.   |Format2
  58.  
  59. OnKey '4'
  60.   |%Message = '1.4m Format with no System Files.'
  61.   |%Option = '/N:18/T:80'
  62.   |Format2
  63.  
  64. OnKey '5'
  65.   |%Message = '360k Format with System Files.'
  66.   |%Option = '/4/S'
  67.   |Format2
  68.  
  69. OnKey '6'
  70.   |%Message = '1.2m Format with System Files.'
  71.   |%Option = '/S'
  72.   |Format2
  73.  
  74. OnKey '7'
  75.   |%Message = '720k Format with System Files.'
  76.   |%Option = '/N:9/T:80/S'
  77.   |Format2
  78.  
  79. OnKey '8'
  80.   |%Message = '1.4m Format with System Files.'
  81.   |%Option = '/N:18/T:80/S'
  82.   |Format2
  83.  
  84. OnKey 'E'
  85.   ME %MenuFileName
  86.  
  87.  
  88. :Format2
  89. BoxBorderColor LCyan Blue
  90. BoxInsideColor White Blue
  91. BoxHeader = ' Drive '
  92. DrawBox 50 12 11 5
  93. TextColor Yellow Blue
  94. ClearLine 205
  95. TextColor White Blue
  96. UseArrows
  97. Writeln
  98. Writeln '   A:'
  99. Write   '   B:'
  100.  
  101. OnKey 'A'
  102.   @Echo Off
  103.   @Echo Formatting Drive A: %Message
  104.   @Echo To abort, press CTRL-C.
  105.   @Echo .
  106.   FORMAT A:%Option
  107.  
  108. OnKey 'B'
  109.   @Echo Off
  110.   @Echo Formatting Drive B: %Message
  111.   @Echo To abort, press CTRL-C.
  112.   @Echo .
  113.   FORMAT B:%Option
  114.